home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / rexx / rmh.lha / rmh / examples / pname.rexx < prev    next >
OS/2 REXX Batch file  |  1999-04-23  |  239b  |  11 lines
  1. /*
  2. usage of ProgramName()
  3. */
  4.  
  5. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  6.  
  7. say "Simple:" ProgramName()
  8. say "NoExt: " ProgramName("NOEXT")
  9. say "Full:  " ProgramName("FULL")
  10. say "Path:  " PathPart(ProgramName("FULL"))
  11.